home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / G4C / CED / indent.g < prev    next >
Encoding:
Gui4CLI script  |  1999-11-24  |  686 b   |  38 lines
  1. G4C
  2.  
  3. WINBIG 390 34 152 33 'Indent by:'
  4. WinType 11110001
  5. resinfo 8 640 256
  6. BOX 0 0 152 33 out button
  7.  
  8. xOnLoad
  9.    indentval = "\t"
  10.    unindent  = OFF
  11.    guiopen indent.g
  12.    
  13. xOnReLoad
  14.    guiopen indent.g
  15.  
  16. xOnRMB
  17.    guiclose indent.g
  18.  
  19. XTEXTIN 3 2 111 13 "" indentval "\t" 100
  20.    gosub indent.g indent
  21.  
  22. XBUTTON 115 2 33 13 "Ok"
  23.    gosub indent.g indent
  24.  
  25. xroutine indent
  26.    SendRexx $cedbar.gc/cedport cut
  27.    lvuse CedClip.g 1
  28.    lvchange 'CLIPS:$cedbar.gc/cedClip'
  29.     if $unindent = ON
  30.         call LVFormat UnIndent
  31.     endif
  32.    call LVFormat INDENT  '$indentval'
  33.    lvsave 'CLIPS:$cedbar.gc/cedClip'
  34.    SendRexx $cedbar.gc/cedport paste
  35.  
  36. XCHECKBOX 114 15 34 15 "From start" unindent "ON" "OFF" OFF
  37.  
  38.